home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / rexx / XES131.lha / XES / REXX / Mode.xdme < prev    next >
Text File  |  1994-12-23  |  590b  |  18 lines
  1. /* mode.xdme */
  2. /* Selects the appropriate mode according to the file name */
  3.  
  4. arg name
  5.  
  6. dot = lastpos(".", name)
  7. if dot ~= 0 then ext = substr(name, dot)
  8.  
  9. select
  10.     when pos(":S/",name) > 0 | left(name,2) = "S:" then "programming-mode"
  11.     when pos(":REXX/",name) > 0 | left(name,5) = "REXX:" then "arexx-mode"
  12.     when dot = 0 then "text-mode"
  13.     when ext = ".TXT" | ext = ".DOC" | ext = ".GUIDE" | ext = ".README" | ext = ".DOK" then "text-mode"
  14.     when ext = ".C" | ext = ".CC" | ext = ".H" then "c-mode"
  15.     when ext = ".MAN" then "manual-mode"
  16.     otherwise "programming-mode"
  17. end
  18.